| Filename | (eval 1128)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 8 statements in 22µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 27µs | 372µs | CGI::path_info |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 372µs (27+345) within CGI::path_info which was called 2 times, avg 186µs/call:
# once (21µs+342µs) by CGI::url at line 832 of CGI.pm
# once (6µs+2µs) by CGI::url at line 9 of (eval 1127)[CGI.pm:869] | ||||
| 2 | 2 | 4µs | 2 | 6µs | my ($self,$info) = self_or_default(@_); # spent 6µs making 2 calls to CGI::self_or_default, avg 3µs/call |
| 3 | 2 | 2µs | if (defined($info)) { | ||
| 4 | $info = "/$info" if $info ne '' && substr($info,0,1) ne '/'; | ||||
| 5 | $self->{'.path_info'} = $info; | ||||
| 6 | } elsif (! defined($self->{'.path_info'}) ) { | ||||
| 7 | 1 | 7µs | 1 | 192µs | my (undef,$path_info) = $self->_name_and_path_from_env; # spent 192µs making 1 call to CGI::AUTOLOAD |
| 8 | 1 | 1µs | $self->{'.path_info'} = $path_info || ''; | ||
| 9 | } | ||||
| 10 | 2 | 8µs | return $self->{'.path_info'}; | ||
| 11 | } | ||||
| 12 | |||||
| 13 | ; |